home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / Cell Control / DATA1.CAB / VBDEMO_Files / MainForm.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-01-11  |  15.8 KB  |  510 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMain 
  3.    Caption         =   "Cell VBDemo"
  4.    ClientHeight    =   4752
  5.    ClientLeft      =   168
  6.    ClientTop       =   456
  7.    ClientWidth     =   6972
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   4752
  10.    ScaleWidth      =   6972
  11.    StartUpPosition =   2  'CenterScreen
  12.    WindowState     =   2  'Maximized
  13.    Begin VB.Menu FileMenu 
  14.       Caption         =   "File(&F)"
  15.       Begin VB.Menu mnuExit 
  16.          Caption         =   "Exit(&X)"
  17.       End
  18.    End
  19.    Begin VB.Menu mnuFeature 
  20.       Caption         =   "Features(&T)"
  21.       Begin VB.Menu mnuFeatures 
  22.          Caption         =   "Window"
  23.          Index           =   1
  24.       End
  25.       Begin VB.Menu mnuFeatures 
  26.          Caption         =   "Sizing"
  27.          Index           =   2
  28.       End
  29.       Begin VB.Menu mnuFeatures 
  30.          Caption         =   "Background"
  31.          Index           =   3
  32.       End
  33.       Begin VB.Menu mnuFeatures 
  34.          Caption         =   "Cell Style"
  35.          Index           =   4
  36.       End
  37.       Begin VB.Menu mnuFeatures 
  38.          Caption         =   "Cell Type"
  39.          Index           =   5
  40.       End
  41.       Begin VB.Menu mnuFeatures 
  42.          Caption         =   "Input"
  43.          Index           =   6
  44.       End
  45.       Begin VB.Menu mnuFeatures 
  46.          Caption         =   "Cell Formula"
  47.          Index           =   7
  48.       End
  49.       Begin VB.Menu mnuFeatures 
  50.          Caption         =   "Chart"
  51.          Index           =   8
  52.       End
  53.       Begin VB.Menu mnuFeatures 
  54.          Caption         =   "Virtual Grid"
  55.          Index           =   9
  56.       End
  57.       Begin VB.Menu mnuFeatures 
  58.          Caption         =   "User defined Function"
  59.          Index           =   10
  60.       End
  61.       Begin VB.Menu mnuFeatures 
  62.          Caption         =   "Cut Copy Paste"
  63.          Index           =   11
  64.       End
  65.       Begin VB.Menu mnuFeatures 
  66.          Caption         =   "Drag Drop"
  67.          Index           =   12
  68.       End
  69.       Begin VB.Menu mnuFeatures 
  70.          Caption         =   "Sort"
  71.          Index           =   13
  72.       End
  73.       Begin VB.Menu mnuFeatures 
  74.          Caption         =   "Pint Preview"
  75.          Index           =   14
  76.       End
  77.       Begin VB.Menu mnuFeatures 
  78.          Caption         =   "Pages"
  79.          Index           =   15
  80.       End
  81.       Begin VB.Menu mnuFeatures 
  82.          Caption         =   "Drop Window"
  83.          Index           =   16
  84.       End
  85.       Begin VB.Menu mnuFeatures 
  86.          Caption         =   "Open Dbase"
  87.          Index           =   17
  88.       End
  89.       Begin VB.Menu mnuFeatures 
  90.          Caption         =   "File Save"
  91.          Index           =   18
  92.       End
  93.    End
  94.    Begin VB.Menu mnuHelp 
  95.       Caption         =   "Help(&H)"
  96.       Begin VB.Menu mnuHelpAbout 
  97.          Caption         =   "About(&A)"
  98.       End
  99.    End
  100. Attribute VB_Name = "frmMain"
  101. Attribute VB_GlobalNameSpace = False
  102. Attribute VB_Creatable = False
  103. Attribute VB_PredeclaredId = True
  104. Attribute VB_Exposed = False
  105. Dim iDefaultHeight As Integer
  106. Dim iDefaultWidth As Integer
  107. Private Sub subDropWindow()
  108. With frmCell.DemoCell
  109.   .DoSetCellString 0, 1, "Button"
  110.   .DoSetCellString 0, 3, "Check box"
  111.   .DoSetCellString 0, 5, "Drop window(row select style)"
  112.   .DoSetCellString 0, 7, "Drop window"
  113.   .DoSetCellString 0, 9, "Drop window(data from page 2)"
  114.   .DoSetButtonCell 2, 1, "press me", "You press here"
  115.   .DoSetCheckboxCell 2, 3, "a check box"
  116.   .DoSetDropGridCell 2, 5, 0, 0, 5, 5, 0, 1, 0, 0, 0
  117.   .DoSetDropGridCell 2, 7, 0, 0, 5, 5, 0, 0, 0, 0, 0
  118.   .DoSetDropGridCell 2, 9, 0, 0, 5, 5, 1, 0, 0, 0, 0
  119.   .DoAppendPage "", 1
  120.   .DoSetCurrentPage 1
  121.   .DoSetCellString 0, 1, "This cell from"
  122.   .DoSetCellString 0, 2, "page 2"
  123.   .DoSetCurrentPage 0
  124.   .DoSetMessageTitle "VB DEMO"
  125. End With
  126. End Sub
  127. Private Sub subPages()
  128. frmCell.DemoCell.DoSetTotalPages 100
  129. End Sub
  130. Private Sub subPrint()
  131. With frmCell.DemoCell
  132.   .DoSetCellString 0, 0, "interest rate"
  133.   .DoSetCellString 1, 0, "three month"
  134.   .DoSetCellString 2, 0, "half year"
  135.   .DoSetCellString 3, 0, "one year"
  136.   .DoSetCellString 4, 0, "two year"
  137.   .DoSetCellString 5, 0, "three year"
  138.   .DoSetCellString 6, 0, "five year"
  139.   .DoSetCellString 0, 1, "month interest rate"
  140.   .DoSetCellValue 1, 1, 2.4
  141.   .DoSetCellValue 2, 1, 3.45
  142.   .DoSetCellValue 3, 1, 4.725
  143.   .DoSetCellValue 4, 1, 4.95
  144.   .DoSetCellValue 5, 1, 5.175
  145.   .DoSetCellValue 6, 1, 5.55
  146.   .DoSetCellString 0, 2, "year interest rate"
  147.   .DoSetCellValue 1, 2, 2.88
  148.   .DoSetCellValue 2, 2, 4.14
  149.   .DoSetCellValue 3, 2, 5.67
  150.   .DoSetCellValue 4, 2, 5.94
  151.   .DoSetCellValue 5, 2, 6.21
  152.   .DoSetCellValue 6, 2, 6.66
  153.   .DoJoinCells 1, 4, 5, 8
  154.   .DoSetRefChart 1, 4, 0, 0, 6, 2
  155.   .DoJoinCells 1, 10, 5, 14
  156.   .DoSetChart 1, 10, 5, 5
  157.   .DoSetChartStringData 1, 10, 0, 0, "Area"
  158.   .DoSetChartStringData 1, 10, 1, 0, "Washington"
  159.   .DoSetChartStringData 1, 10, 2, 0, "New York"
  160.   .DoSetChartStringData 1, 10, 3, 0, "Florida"
  161.   .DoSetChartStringData 1, 10, 4, 0, "Colorado"
  162.   .DoSetChartStringData 1, 10, 0, 1, "first quarter"
  163.   .DoSetChartStringData 1, 10, 0, 2, "second quarter"
  164.   .DoSetChartStringData 1, 10, 0, 3, "third quarter"
  165.   .DoSetChartStringData 1, 10, 0, 4, "fourth quarter"
  166.   .DoSetChartValueData 1, 10, 1, 1, 29876
  167.   .DoSetChartValueData 1, 10, 1, 2, 34123
  168.   .DoSetChartValueData 1, 10, 1, 3, 42221
  169.   .DoSetChartValueData 1, 10, 1, 4, 52123
  170.   .DoSetChartValueData 1, 10, 2, 1, 32365
  171.   .DoSetChartValueData 1, 10, 2, 2, 35432
  172.   .DoSetChartValueData 1, 10, 2, 3, 30283
  173.   .DoSetChartValueData 1, 10, 2, 4, 45322
  174.   .DoSetChartValueData 1, 10, 3, 1, 32007
  175.   .DoSetChartValueData 1, 10, 3, 2, 23481
  176.   .DoSetChartValueData 1, 10, 3, 3, 40624
  177.   .DoSetChartValueData 1, 10, 3, 4, 34528
  178.   .DoSetChartValueData 1, 10, 4, 1, 31232
  179.   .DoSetChartValueData 1, 10, 4, 2, 30345
  180.   .DoSetChartValueData 1, 10, 4, 3, 27943
  181.   .DoSetChartValueData 1, 10, 4, 4, 32109
  182.   .DoSetChartGeneralData 1, 10, 1, False, "sale", "figure2", "thousand dollar"
  183.   .DoRefreshChart 1, 10
  184.   .PageLabelVisible = False
  185. End With
  186. End Sub
  187. Private Sub subSort()
  188. With frmCell.DemoCell
  189.   .Cols = 6
  190.   .Rows = 8
  191.   .DoSetBackGround 4
  192.   .DoSetCellString 0, -1, "Stock"
  193.   .DoSetCellString 1, -1, "Open"
  194.   .DoSetCellString 2, -1, "Rise/Drop"
  195.   .DoSetCellString 3, -1, "Noon Volume"
  196.   .DoSetCellString 4, -1, "10:10"
  197.   .DoSetCellString 5, -1, "Volume"
  198.   .DoSetCellString 0, 0, "Microsoft"
  199.   .DoSetCellValue 1, 0, 27.5
  200.   .DoSetCellValue 2, 0, -0.57
  201.   .DoSetCellValue 3, 0, 1116200
  202.   .DoSetCellValue 4, 0, 27.6
  203.   .DoSetCellValue 5, 0, 338700
  204.   .DoSetCellString 0, 1, "IBM"
  205.   .DoSetCellValue 1, 1, 9.59
  206.   .DoSetCellValue 2, 1, -1.94
  207.   .DoSetCellValue 3, 1, 317000
  208.   .DoSetCellValue 4, 1, 9.7
  209.   .DoSetCellValue 5, 1, 45600
  210.   .DoSetCellString 0, 2, "Sun"
  211.   .DoSetCellValue 1, 2, 11.3
  212.   .DoSetCellValue 2, 2, 0.89
  213.   .DoSetCellValue 3, 2, 333200
  214.   .DoSetCellValue 4, 2, 11.21
  215.   .DoSetCellValue 5, 2, 20700
  216.   .DoSetCellString 0, 3, "Oracle"
  217.   .DoSetCellValue 1, 3, 13.52
  218.   .DoSetCellValue 2, 3, -2.02
  219.   .DoSetCellValue 3, 3, 378500
  220.   .DoSetCellValue 4, 3, 13.68
  221.   .DoSetCellValue 5, 3, 26500
  222.   .DoSetCellString 0, 4, "Sybase"
  223.   .DoSetCellValue 1, 4, 15.82
  224.   .DoSetCellValue 2, 4, -1.12
  225.   .DoSetCellValue 3, 4, 799600
  226.   .DoSetCellValue 4, 4, 15.81
  227.   .DoSetCellValue 5, 4, 69600
  228.   .DoSetCellString 0, 5, "Adobe"
  229.   .DoSetCellValue 1, 5, 6.3
  230.   .DoSetCellValue 2, 5, -1.4
  231.   .DoSetCellValue 3, 5, 476000
  232.   .DoSetCellValue 4, 5, 6.43
  233.   .DoSetCellValue 5, 5, 195500
  234.   .DoSetCellString 0, 6, "CA"
  235.   .DoSetCellValue 1, 6, 10.21
  236.   .DoSetCellValue 2, 6, -0.68
  237.   .DoSetCellValue 3, 6, 221300
  238.   .DoSetCellValue 4, 6, 10.26
  239.   .DoSetCellValue 5, 6, 21200
  240.   .DoSetCellString 0, 7, "AT&T"
  241.   .DoSetCellValue 1, 7, 9.1
  242.   .DoSetCellValue 2, 7, -2.04
  243.   .DoSetCellValue 3, 7, 1014800
  244.   .DoSetCellValue 4, 7, 9.12
  245.   .DoSetCellValue 5, 7, 97000
  246.   .DoSetCellString 0, 8, "North"
  247.   .DoSetCellValue 1, 8, 8.98
  248.   .DoSetCellValue 2, 8, -2.07
  249.   .DoSetCellValue 3, 8, 757300
  250.   .DoSetCellValue 4, 8, 9.11
  251.   .DoSetCellValue 5, 8, 154400
  252.   For i = 1 To 6
  253.     .DoSetSortCol i, True
  254.   Next
  255.   .RowSelectedMode = True
  256.   .SideLabelVisible = False
  257.   .PageLabelVisible = False
  258.   .DoShowCurrentCell False, True
  259.   .MultiSelectedMode = False
  260.   .GridReadOnly = True
  261.   .CurrentTopLabelHint = False
  262. End With
  263. End Sub
  264. Private Sub subUserFunc()
  265. With frmCell.DemoCell
  266.     Dim parmType(4) As Integer
  267.     Dim parmDefault(4) As Integer
  268.     For i = 0 To UBound(parmType) - 1
  269.         parmType(i) = i
  270.     Next
  271.     For i = 0 To UBound(parmDefault) - 1
  272.         parmDefault(i) = 1
  273.     Next
  274.     parmDefault(0) = 0
  275.     .DoAddUserFunctionEx "", "MyFunction1", 0, 4, parmType(0), parmDefault(0), "
  276.     .DoSetFormula 1, 0, "EXP(1)"
  277.     Dim Myfun As String
  278.     Myfun = "MyFunction1(24, " & Chr(34) & "abc" & Chr(34) & ",, A1:B3)"
  279.     .DoSetFormula 2, 0, Myfun
  280.     .PageLabelVisible = False
  281. End With
  282. End Sub
  283. Private Sub subViutual()
  284. With frmCell.DemoCell
  285.   .DoSetEqualRowHeight True
  286.   .Rows = 16384
  287.   .Cols = 256
  288.   .GridReadOnly = True
  289.   .SideLabelWidth = 100
  290.   .EnablePopMenu = False
  291.   .PageLabelVisible = False
  292.   .DoSetCanDragDrop False
  293. End With
  294. End Sub
  295. Private Sub subChart()
  296. With frmCell.DemoCell
  297.   .DoSetCellString 0, 0, "interest rate"
  298.   .DoSetCellString 1, 0, "three month"
  299.   .DoSetCellString 2, 0, "half year"
  300.   .DoSetCellString 3, 0, "one year"
  301.   .DoSetCellString 4, 0, "two year"
  302.   .DoSetCellString 5, 0, "three year"
  303.   .DoSetCellString 6, 0, "five year"
  304.   .DoSetCellString 0, 1, "month interest rate"
  305.   .DoSetCellValue 1, 1, 2.4
  306.   .DoSetCellValue 2, 1, 3.45
  307.   .DoSetCellValue 3, 1, 4.725
  308.   .DoSetCellValue 4, 1, 4.95
  309.   .DoSetCellValue 5, 1, 5.175
  310.   .DoSetCellValue 6, 1, 5.55
  311.   .DoSetCellString 0, 2, "year interest rate"
  312.   .DoSetCellValue 1, 2, 2.88
  313.   .DoSetCellValue 2, 2, 4.14
  314.   .DoSetCellValue 3, 2, 5.67
  315.   .DoSetCellValue 4, 2, 5.94
  316.   .DoSetCellValue 5, 2, 6.21
  317.   .DoSetCellValue 6, 2, 6.66
  318.   .DoJoinCells 1, 4, 5, 8
  319.   .DoSetRefChart 1, 4, 0, 0, 6, 2
  320.   .DoJoinCells 1, 10, 5, 14
  321.   .DoSetChart 1, 10, 5, 5
  322.   .DoSetChartStringData 1, 10, 0, 0, "Area"
  323.   .DoSetChartStringData 1, 10, 1, 0, "Washington"
  324.   .DoSetChartStringData 1, 10, 2, 0, "New York"
  325.   .DoSetChartStringData 1, 10, 3, 0, "Florida"
  326.   .DoSetChartStringData 1, 10, 4, 0, "Colorado"
  327.   .DoSetChartStringData 1, 10, 0, 1, "first quarter"
  328.   .DoSetChartStringData 1, 10, 0, 2, "second quarter"
  329.   .DoSetChartStringData 1, 10, 0, 3, "third quarter"
  330.   .DoSetChartStringData 1, 10, 0, 4, "fourth quarter"
  331.   .DoSetChartValueData 1, 10, 1, 1, 29876
  332.   .DoSetChartValueData 1, 10, 1, 2, 34123
  333.   .DoSetChartValueData 1, 10, 1, 3, 42221
  334.   .DoSetChartValueData 1, 10, 1, 4, 52123
  335.   .DoSetChartValueData 1, 10, 2, 1, 32365
  336.   .DoSetChartValueData 1, 10, 2, 2, 35432
  337.   .DoSetChartValueData 1, 10, 2, 3, 30283
  338.   .DoSetChartValueData 1, 10, 2, 4, 45322
  339.   .DoSetChartValueData 1, 10, 3, 1, 32007
  340.   .DoSetChartValueData 1, 10, 3, 2, 23481
  341.   .DoSetChartValueData 1, 10, 3, 3, 40624
  342.   .DoSetChartValueData 1, 10, 3, 4, 34528
  343.   .DoSetChartValueData 1, 10, 4, 1, 31232
  344.   .DoSetChartValueData 1, 10, 4, 2, 30345
  345.   .DoSetChartValueData 1, 10, 4, 3, 27943
  346.   .DoSetChartValueData 1, 10, 4, 4, 32109
  347.   .DoSetChartGeneralData 1, 10, 1, False, "sale", "figure2", "thousand dollar"
  348.   .DoRefreshChart 1, 10
  349. End With
  350. End Sub
  351. Private Sub subFormula()
  352. With frmCell.DemoCell
  353.   .DoSetCellString 0, 1, "January"
  354.   .DoSetCellString 1, 1, "February"
  355.   .DoSetCellString 2, 1, "March"
  356.   .DoSetCellString 3, 1, "first quarter"
  357.   .DoSetCellString 4, 1, "this year"
  358.   .DoSetCellValue 0, 2, 567.5
  359.   .DoSetCellValue 1, 2, 679.3
  360.   .DoSetCellValue 2, 2, 368.3
  361.   .DoSetFormula 3, 2, "a3+b3+c3"
  362.   .DoSetFormula 4, 2, "d3*4"
  363.   .PageLabelVisible = False
  364. End With
  365. End Sub
  366. Private Sub subInput()
  367. With frmCell.DemoCell
  368.   .DoSetCellString 0, 1, "Upper case in B2"
  369.   .DoSetCellInputControlCase 1, 1, 1
  370.   .DoSetCellString 0, 3, "Date format in B4"
  371.   .DoSetCellInputControlMask 1, 3, "99-99-9999"
  372.   .DoSetCellString 0, 5, "Value range(50.0 -- 80.0) B6"
  373.   .DoSetCellInputOnlyValue 1, 5, True, 80#, True, 50#
  374.   .DoSetCellString 0, 7, "Input not allowed in B8"
  375.   .DoSetColWidth 0, 300
  376.   .DoSetColWidth 1, 160
  377.   .PageLabelVisible = False
  378. End With
  379. End Sub
  380. Private Sub subCopy()
  381.   frmCell.DemoCell.EnablePopMenu = True
  382.   frmCell.DemoCell.GridReadOnly = False
  383.   frmCell.DemoCell.MultiSelectedMode = True
  384. End Sub
  385. Private Sub subCellType()
  386. With frmCell.DemoCell
  387.    .DoSetCellString 0, 1, "Button"
  388.    .DoSetCellString 0, 3, "Check box"
  389.    .DoSetCellString 0, 5, "Radio button"
  390.    .DoSetCellString 0, 7, "Drop list"
  391.    .DoSetCellString 0, 9, "Spin"
  392.    .DoSetCellString 0, 11, "Step Spin"
  393.    .DoSetCellString 0, 14, "Drop window"
  394.    .DoSetButtonCell 2, 1, "press me", "You pressed the button!"
  395.    .DoSetCheckboxCell 2, 3, "check box"
  396.    .DoSetRadioCell 2, 5, "up" & vbCrLf & "down"
  397.    .DoSetDroplistCell 2, 7, "by bus" & vbCrLf & "by plane" & vbCrLf & "by train", 0, 1
  398.    .DoSetTextSpinCell 2, 9, "up" & vbCrLf & "down" & vbCrLf & "medium"
  399.    .DoSetValueSpinCell 2, 11, 0, 100, 10
  400.    .DoSetDropGridCell 2, 14, 0, 0, 5, 5, 0, 0, 0, 0, 0
  401.    .DoSetDroplistCell 3, 7, "by bus" & vbCrLf & "by plane" & vbCrLf & "by train", 1, 1
  402.    .DoSetDroplistCell 4, 7, "by bus" & vbCrLf & "by plane" & vbCrLf & "by train", 0, 0
  403.    .DoSetCellString 4, 7, "Input here!"
  404.    .DoSetCellString 3, 7, "come here!"
  405.    .DoSetCellValue 2, 11, 0
  406.    .DoSetRowHeight 5, 150
  407.    .PageLabelVisible = False
  408.    .DoJoinCells 3, 0, 5, 6
  409.   If Right(App.Path, 1) = "\" Then
  410.     tmp = App.Path + "garbo.jpg"
  411.   Else
  412.     tmp = App.Path + "\garbo.jpg"
  413.   End If
  414.    .DoSetCellPicture 3, 0, tmp, 1
  415. End With
  416. End Sub
  417. Private Sub subCellStyle()
  418. With frmCell.DemoCell
  419.    .DoSetCellString 0, 0, "Align left"
  420.    .DoSetCellAlignment 0, 0, 1
  421.    .DoSetCellString 0, 1, "Align right"
  422.    .DoSetCellAlignment 0, 1, 2
  423.    .DoSetCellString 0, 2, "Align medium"
  424.    .DoSetCellAlignment 0, 2, 4
  425.    .DoSetCellString 0, 3, "Align top"
  426.    .DoSetCellAlignment 0, 3, 8
  427.    .DoSetCellString 0, 4, "Align bottom"
  428.    .DoSetCellAlignment 0, 4, 16
  429.    .DoSetCellString 0, 5, "Align v_medium"
  430.    .DoSetCellAlignment 0, 5, 32
  431.    .DoSetCellString 1, 0, "Word break"
  432.    .DoSetCellTextStyle 1, 0, 1
  433.   For i = 0 To 6
  434.      .DoSetRowHeight i, 50
  435.   Next
  436.   For i = 1 To 5
  437.     For j = 3 To 6
  438.        .DoSetCell3DState i, j, 1
  439.        .DoSetCellString 1, 3, "This Style is suitable for form head"
  440.     Next
  441.   Next
  442.   For i = 1 To 5
  443.     For j = 8 To 12
  444.        .DoSetCell3DState i, j, 2
  445.     Next
  446.   Next
  447.    .PageLabelVisible = False
  448. End With
  449. End Sub
  450. Private Sub LoadCell()
  451. With frmCell.DemoCell
  452.     .RowSelectedMode = False
  453.     .EnablePopMenu = False
  454.     .DoSetDefaultColWidth 100
  455.     .DoSetDefaultRowHeight 20
  456. End With
  457. End Sub
  458. Private Sub subDrag()
  459. With frmCell.DemoCell
  460.   .MultiSelectedMode = True
  461.   .PageLabelVisible = False
  462.   .GridReadOnly = False
  463. End With
  464. End Sub
  465. Private Sub Form_Load()
  466. frmMain.WindowState = 2
  467. End Sub
  468. Private Sub mnuExit_Click()
  469. End Sub
  470. Private Sub mnuFeatures_Click(Index As Integer)
  471. On Error Resume Next
  472. iSelection = Index
  473. LoadCell
  474. frmCell.Caption = "Cell Demo " & mnuFeatures(Index).Caption
  475. frmCell.picPicture(Index - 1).ZOrder
  476. Select Case Index
  477.   Case 4
  478.     subCellStyle
  479.   Case 5
  480.     subCellType
  481.   Case 6
  482.     subInput
  483.   Case 7
  484.     subFormula
  485.   Case 8
  486.     subChart
  487.   Case 9
  488.     subViutual
  489.   Case 10
  490.     subUserFunc
  491.   Case 11
  492.     subCopy
  493.   Case 12
  494.     subDrag
  495.   Case 13
  496.     subSort
  497.   Case 14
  498.     subPrint
  499.   Case 15
  500.     subPages
  501.   Case 16
  502.     subDropWindow
  503. End Select
  504. frmCell.Show vbModal
  505. End Sub
  506. Private Sub mnuHelpAbout_Click()
  507. MsgBox "Cell VB Demo" & vbCrLf & vbCrLf & "Author
  508. Jack Yin" & vbCrLf & "        jackyyin@nease.net", vbInformation
  509. End Sub
  510.